Public Class reportFactura

    'Private Sub rptItems_BeforePrint(sender As System.Object, e As System.Drawing.Printing.PrintEventArgs) Handles rptItems.BeforePrint
    '    Dim rptItems As New rptDetalleItems
    '    CType((CType(sender, rptItems)).ReportSource, rptDetallePago).CatID.Value = _
    '  Convert.ToInt32(GetCurrentColumnValue("id"))
    'End Sub

    'Private Sub rptPagos_BeforePrint(sender As System.Object, e As System.Drawing.Printing.PrintEventArgs) Handles rptPagos.BeforePrint
    '    Dim rptPagos As New rptDetallePago
    '    CType((CType(sender, ptPagos)).ReportSource, rptDetallePago).CatID.Value = _
    ' Convert.ToInt32(GetCurrentColumnValue("id"))
    'End Sub
End Class